home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok19 / smallinout / smallinout.def next >
Text File  |  1993-11-04  |  890b  |  31 lines
  1. (*---------------------------------------------------------------------------
  2.   :Program.    SmallInOut.def
  3.   :Author.     Fridtjof Siebert
  4.   :Address.    Nobileweg 67, D-7-Stgt-40
  5.   :Phone.      (0)711/822509
  6.   :Shortcut.   [fbs]
  7.   :Version.    1.0
  8.   :Date.       15-May-89
  9.   :Copyright.  PD
  10.   :Language.   Modula-II
  11.   :Translator. M2Amiga v3.1d
  12.   :Contents.   Small replacement of InOut
  13. ---------------------------------------------------------------------------*)
  14.  
  15. DEFINITION MODULE SmallInOut;
  16.  
  17. PROCEDURE Length(s: ARRAY OF CHAR): LONGINT;
  18.  
  19. PROCEDURE Write(ch: CHAR);
  20. PROCEDURE WriteLn;
  21. PROCEDURE WriteString(str: ARRAY OF CHAR);
  22. PROCEDURE WriteInt(x: LONGINT; n: INTEGER);
  23. PROCEDURE WriteHex(x: LONGINT; n: INTEGER);
  24.  
  25. PROCEDURE Read(VAR ch: CHAR);
  26. PROCEDURE ReadString(VAR str: ARRAY OF CHAR);
  27. PROCEDURE ReadInt(VAR x: INTEGER);
  28. PROCEDURE ReadLongInt(VAR x: LONGINT);
  29.  
  30. END SmallInOut.
  31.